home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 7 / 007.d81 / world air (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  14KB  |  374 lines
  1. 50 rem      ** air mileage chart **
  2. 60 rem     written by max a. chapman
  3. 70 rem           628 ibis lane
  4. 80 rem        reno, nevada  89503
  5. 90 rem          (702)  747-3306
  6. 100 clr:restore:print"[147][159]":poke53280,6:poke53281,6:c2$="":c1$=""
  7. 110 print"[150]        [205][169]  world air miles  [223][206][146]"
  8. 120 print"[153]    [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  9. 130 print"    [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  10. 140 print"[159]        from";
  11. 150 inputc1$
  12. 160 print"          to";
  13. 170 inputc2$
  14. 180 c$=c1$
  15. 190 print"           computing . . ."
  16. 200 readc$,s$,d1,m1,ns$,d2,m2,ew$
  17. 210 ifc$="xxx"thenma$="xxx":goto250
  18. 220 ifc$<>c1$then200
  19. 230 mb$=s$
  20. 240 d3=d1:m3=m1:d4=d2:m4=m2:n1$=ns$:e1$=ew$
  21. 250 restore:c$=c2$
  22. 260 readc$,s$,d1,m1,ns$,d2,m2,ew$
  23. 270 ifc$="xxx"then320
  24. 280 ifc$<>c2$then260
  25. 290 ifma$="xxx"then310
  26. 300 goto370
  27. 310 ifma$="xxx"thent$="[145]** "+c1$+" not listed **"
  28. 320 ifc$="xxx"thent$="[145]** "+c2$+" not listed **"
  29. 330 ifc$="xxx"andma$="xxx"thent$="[145][145][145]"+c1$+" and "+c2$
  30. 340 gosub740
  31. 350 ifc$="xxx"andma$="xxx"thenprint"          ** not listed **"
  32. 360 fori=1to6000:next:goto100
  33. 370 d5=d1:m5=m1:d6=d2:m6=m2:n2$=ns$:e2$=ew$
  34. 380 rem compute city #1
  35. 390 d4=(d4+(m4/60))*(NULL)/180:d3=(d3+(m3/60))*(NULL)/180
  36. 400 k1=sin(d3):k2=cos(d3)
  37. 410 ife1$="w"then430
  38. 420 d4=-d4
  39. 430 ifn1$="n"then450
  40. 440 k1=-k1
  41. 450 rem compute city #2
  42. 460 d6=(d6+(m6/60))*(NULL)/180:d5=(d5+(m5/60))*(NULL)/180
  43. 470 ife2$="e"then500
  44. 480 r=abs(d4-d6)
  45. 490 goto510
  46. 500 r=abs(d4+d6)
  47. 510 ifr<(NULL)then530
  48. 520 r=(2*(NULL))-r
  49. 530 ifn2$="n"then560
  50. 540 k1=-k1
  51. 550 rem figure distance
  52. 560 a1=(k1*(sin(d5)))+(k2*(cos(d5))*(cos(r)))
  53. 570 x=((NULL)/2)-(atn(a1/((1-a1^2)^.5)))
  54. 580 x=int(69.15*180*x/(NULL)+.5)
  55. 590 print""
  56. 600 t$=c1$+", "+mb$+" to"
  57. 610 gosub740:print
  58. 620 t$=c2$+", "+s$
  59. 630 gosub740
  60. 640 print"[155]":x$=str$(x)
  61. 650 t$="air distance in miles:"+x$
  62. 660 gosub740
  63. 670 print"[153]    [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  64. 680 print"    [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  65. 690 print"             another? (y/n)"
  66. 700 print"[150]  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  67. 710 getq$:ifq$=""then710
  68. 720 ifq$="y"then100
  69. 730 ifq$<>"n"then710
  70. 735 goto63000
  71. 740 ct=40
  72. 750 fori=1toct:as$=as$+" ":next:t2$=""
  73. 760 t1=int((ct-len(t$))/2)
  74. 770 ift1<1thenprintt$:return
  75. 780 t2$=t2$+left$(as$,t1)+t$
  76. 790 printt2$
  77. 800 return
  78. 810 data atlanta,georgia,33,45.2,n,84,23.6,w
  79. 820 data anchorage,alaska,61,10,n,149,59,w
  80. 830 data acapulco,mexico,16,51,n,99,55,w
  81. 840 data akron,ohio,41,5,n,81,31,w
  82. 850 data amsterdam,netherlands,52,22,n,4,54,e
  83. 860 data anaheim,california,33,51,n,117,57,w
  84. 870 data ashland,oregon,42,12,n,122,42,w
  85. 880 data athens,greece,37,58,n,23,43,e
  86. 890 data atlantic city,new jersey,39,22,n,74,26,w
  87. 895 data atwater,california,37,21,n,120,36,w
  88. 900 data auburn,california,38,54,n,121,4,w
  89. 910 data austin,texas,30,16,n,97,45,w
  90. 920 data albuquerque,new mexico,35,5,n,106,40,w
  91. 930 data berlin,west germany,52,32,n,13,25,e
  92. 940 data bakersfield,california,35,23,n,119,1,w
  93. 950 data baltimore,maryland,39,17,n,76,37,w
  94. 960 data battle mountain,nevada,40,38,n,116,56,w
  95. 970 data berkeley,california,37,52.2,n,122,16.3,w
  96. 980 data boston,massachusetts,42,21.4,n,71,3.4,w
  97. 990 data barstow,california,34,54,n,117,1,w
  98. 1000 data baton rouge,louisiana,30,23,n,91,11,w
  99. 1010 data belfast,northern ireland,54,35,n,5,55,w
  100. 1020 data bellingham,washington,48,49,n,122,29,w
  101. 1030 data billings,montana,37,4,n,93,33,w
  102. 1040 data biloxi,mississippi,30,24,n,88,53,w
  103. 1050 data birmingham,alabama,33,31,n,86,49,w
  104. 1060 data bishop,california,37,22,n,118,24,w
  105. 1070 data bismarck,north dakota,46,48,n,100,47,w
  106. 1080 data boise,idaho,43,37,n,116,13,w
  107. 1090 data bombay,india,18,58,n,72,50,e
  108. 1100 data boulder,colorado,40,1,n,105,17,w
  109. 1105 data boulder city,nevada,35,59,n,114,50,w
  110. 1110 data bowling green,kentucky,37,0,n,86,27,w
  111. 1120 data bridgeport,california,38,10,n,119,13,w
  112. 1130 data brownsville,texas,25,54,n,97,30,w
  113. 1140 data burlington,vermont,44,29,n,73,13,w
  114. 1150 data bullhead city,arizona,35,9,n,114,34,w
  115. 1160 data buffalo,new york,42,54,n,78,53,w
  116. 1170 data butte,montana,46,0,n,112,32,w
  117. 1180 data chicago,illinois,41,52.5,n,87,38.4,w
  118. 1190 data canton island,south pacific,2,50,s,171,40,w
  119. 1200 data carson city,nevada,39,10,n,119,46,w
  120. 1210 data cairo,egypt,30,3,n,31,15,e
  121. 1220 data caracas,venezuela,10,30,n,66,56,w
  122. 1230 data carmel,california,36,33,n,121,55,w
  123. 1235 data carmichael,california,38,38,n,121,19,w
  124. 1240 data charleston,south carolina,32,48,n,79,57,w
  125. 1250 data charlotte,north carolina,35,14,n,80,50,w
  126. 1260 data chattanooga,tennessee,35,3,n,85,19,w
  127. 1270 data chico,california,39,44,n,121,50,w
  128. 1280 data cheyenne,wyoming,41,8,n,104,49,w
  129. 1290 data christchurch,new zealand,43,32,s,172,38,e
  130. 1295 data citrus heights,california,38,42,n,121,17,w
  131. 1300 data cleveland,ohio,41,30,n,81,41,w
  132. 1310 data cincinnati,ohio,39,6,n,84,31,w
  133. 1320 data columbus,ohio,39,57,n,83,0,w
  134. 1330 data concord,california,37,59,n,122,2,w
  135. 1340 data coos bay,oregon,43,22,n,124,13,w
  136. 1350 data corpus christi,texas,27,48,n,97,24,w
  137. 1360 data crescent city,california,41,45,n,124,12,w
  138. 1370 data dallas,texas,32,47,n,96,48,w
  139. 1380 data davenport,iowa,41,32,n,90,41,w
  140. 1390 data davis,california,38,33,n,121,44,w
  141. 1400 data daytona beach,florida,29,12,n,81,0,w
  142. 1410 data dayton,ohio,39,45,n,84,15,w
  143. 1420 data denver,colorado,39,43,n,105,1,w
  144. 1430 data des moines,iowa,41,35,n,93,37,w
  145. 1440 data detroit,michigan,42,20,n,83,3,w
  146. 1450 data edmonton,alberta,53,33,n,113,28,w
  147. 1460 data elko,nevada,40,50,n,115,46,w
  148. 1470 data el paso,texas,31,45,n,106,29,w
  149. 1480 data ely,nevada,39,15,n,114,53,w
  150. 1485 data escalon,california,37,48,n,120,60,w
  151. 1490 data eugene,oregon,44,2,n,123,5,w
  152. 1500 data eureka,california,40,47,n,124,9,w
  153. 1510 data fairbanks,alaska,64,51,n,147,43,w
  154. 1520 data fernley,nevada,39,36,n,119,15,w
  155. 1530 data flagstaff,arizona,35,12,n,111,39,w
  156. 1540 data ft. smith,arkansas,35,23,n,94,25,w
  157. 1550 data fresno,california,36,45,n,119,45,w
  158. 1560 data fallon,nevada,39,28,n,118,47,w
  159. 1565 data galt,california,38,15,n,121,18,w
  160. 1570 data galveston,texas,29,18,n,94,48,w
  161. 1580 data gardnerville,nevada,38,56,n,119,45,w
  162. 1590 data gary,indiana,41,36,n,87,20,w
  163. 1600 data geneva,switzerland,46,12,n,6,9,e
  164. 1610 data gila bend,arizona,32,57,n,112,43,w
  165. 1615 data goldfield,nevada,37,42,n,117,14,w
  166. 1620 data grand rapids,michigan,42,58,n,85,40,w
  167. 1630 data grants pass,oregon,42,26,n,123,19,w
  168. 1640 data grass valley,california,39,13,n,121,4,w
  169. 1645 data gustine,california,37,16,n,120,60,w
  170. 1650 data honolulu,hawaii,21,18.4,n,157,51.6,w
  171. 1660 data halifax,nova scotia,44,39,n,63,36,w
  172. 1665 data happy camp,california,41,48,n,123,22,w
  173. 1670 data hartford,connecticut,41,46,n,72,41,w
  174. 1680 data havava,cuba,23,8,n,82,22,w
  175. 1690 data hawthorne,nevada,38,32,n,118,38,w
  176. 1700 data hayward,california,37,40,n,122,5,w
  177. 1710 data helena,montana,46,36,n,112,1,w
  178. 1720 data henderson,nevada,36,2,n,114,59,w
  179. 1730 data hilo,hawaii,19,43,n,155,5,w
  180. 1740 data hobart,australia,42,53,s,147,19,e
  181. 1750 data hong kong,victoria,22,17,n,114,9,e
  182. 1760 data houston,texas,29,46,n,95,22,w
  183. 1765 data hughson,california,37,36,n,120,52,w
  184. 1770 data jacksonville,florida,30,20,n,81,40,w
  185. 1780 data johannesburg,south africa,26,15,s,28,0,e
  186. 1790 data juneau,alaska,58,20,n,134,27,w
  187. 1800 data jackpot,nevada,41,59,n,114,40,w
  188. 1810 data kansas city,missouri,39,5,n,94,35,w
  189. 1820 data klamath falls,oregon,42,13,n,121,46,w
  190. 1830 data knoxville,tennessee,35,58,n,83,56,w
  191. 1840 data kings beach,california,39,14,n,120,1,w
  192. 1850 data london,england,51,30,n,0,0,e
  193. 1860 data los angeles,california,34,3.3,n,118,14.5,w
  194. 1865 data lake mead,nevada,36,5,n,114,25,w
  195. 1870 data las vegas,nevada,36,11,n,115